10 for A=0to 174
20 &(10)=A
30 next A
:return ;run 